IF BR>=21

   SET CURSOR OFF
   SET COLO TO R+/B,W+/N
   @ 24,24 say "**   F1-Exit      F2-Continue   **"
   SET COLO TO BG+/B,W+/N
   do while .t.
      store 0 to mx,ws
      do while mx=0
         mx=inkey()
      enddo
      if mx=28
         ws=1
         exit
      else
         if mx=-1
            ws=0
            exit
         endif
      endif
   enddo
   SET CURSOR ON
   IF WS=1
      KLR='Y'
   ENDIF
   @ 4,0 CLEA TO 24,79
   BR=3
   widt=0
ENDIF
BR=BR+1
NUM=ST_MAX-ST_ACT_BUY
@ BR,  1  SAY  KODE
@ BR,  8  SAY  rtrim(NAME)+'  '+rtrim(tipe)+'  '+rtrim(qant)+' '+rtrim(unit)
@ BR, 50  SAY  ST_REFIL
@ BR, 59  SAY  ST_ACT_BUY
@ BR, 69  SAY  ST_MAX-ST_ACT_BUY
@ BR+1,8  SAY rtrim(BUY_UNIT)

IF BUY_SELL_R<>1
   widt=len(rtrim(buy_unit))
   @ BR+1, 10+widt  SAY "of"
   @ BR+1, 14+widt  SAY  BUY_SELL_R  PICT '9999'
   @ BR+1, 20+widt  SAY  SELL_UNIT
ENDIF
BR=BR+2
RETURN